home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / sauter.zip / B-CMCSC.MF < prev    next >
Text File  |  1990-09-16  |  3KB  |  99 lines
  1. % Computer Modern Roman Caps and Small Caps
  2. if unknown cmbase: input cmbase fi
  3.  
  4. font_identifier:="CMCSC"; font_size design_size * pt#;
  5.  
  6. % first come parameters used to set the uppercase letters
  7. % (including some for lowercase that aren't actually used)
  8. % These parameters are nearly the same as the Computer Modern Roman
  9. % parameters.
  10.  
  11. input c-cmr;
  12.  
  13. u#:=                      % unit width
  14.     ((u#*360pt#) + (design_size * 1))/360pt#;
  15.  
  16. letter_fit#:=             % extra space added to all sidebars
  17.     ((letter_fit#*360pt#) + (design_size * 5))/360pt#;
  18.  
  19. ligs:=1;                  % level of ligatures to be included
  20.  
  21. % now come replacements used to set the lowercase caps
  22.  
  23. lower.u#:=                % unit width
  24.     (u#*360pt#*16)/(21*360pt#);
  25.  
  26. lower.width_adj#:=        % width adjustment for certain characters
  27.     width_adj#;
  28.  
  29. lower.cap_serif_fit#:=    % extra sidebar near uppercase serifs
  30.     (cap_serif_fit#*360pt#*4)/(5*360pt#);
  31.  
  32. lower.letter_fit#:=       % extra space added to all sidebars
  33.     (letter_fit#*36pt#*24)/(5*360pt#);
  34.  
  35. lower.body_height#:=      % height of tallest characters
  36.     (body_height#*36pt#*20.0)/(27.0*36pt#);
  37.  
  38. lower.cap_height#:=       % height of caps
  39.     (cap_height#*36pt#*18.5)/(24.6*36pt#);
  40.  
  41. lower.x_height#:=         % height of lowercase without ascenders
  42.     (x_height#*36pt#*116)/(155*36pt#);
  43.  
  44. lower.bar_height#:=       % height of crossbar in lowercase e
  45.     (bar_height#*36pt#*65)/(87*36pt#);
  46.  
  47. lower.comma_depth#:=      % depth of comma below baseline
  48.     (comma_depth#*36pt#*52)/(70*36pt#);
  49.  
  50. lower.stem#:=             % lowercase stem breadth
  51.     (stem#*360pt#*21)/(25*360pt#);
  52.  
  53. lower.flare#:=            % diameter of bulbs or breadth of terminals
  54.     (flare#*360pt#*25)/(33*360pt#);
  55.  
  56. lower.cap_hair#:=         % uppercase hairline breadth
  57.     (cap_hair#*36pt#*91)/(11*360pt#);
  58.  
  59. lower.cap_stem#:=         % uppercase stem breadth
  60.     (cap_stem#*360pt#*26)/(32*360pt#);
  61.  
  62. lower.cap_curve#:=        % uppercase curve breadth
  63.     (cap_curve#*360pt#*31)/(37*360pt#);
  64.  
  65. lower.cap_ess#:=          % breadth in middle of uppercase s
  66.     (cap_ess#*360pt#*28)/(35*360pt#);
  67.  
  68. lower.cap_jut#:=          % protrusion of uppercase serifs
  69.     (cap_jut#*360pt#*26)/(37*360pt#);
  70.  
  71. lower.beak_jut#:=         % horizontal protrusion of beak serifs
  72.     (beak_jut#*360pt#*7)/(10*360pt#);
  73.  
  74. lower.beak#:=             % vertical protrusion of beak serifs
  75.     (beak#*36pt#*52)/(7*360pt#);
  76.  
  77. lower.slab#:=             % serif and arm thickness
  78.     (slab#*36pt#*91)/(11*360pt#);
  79.  
  80. lower.cap_bar#:=          % uppercase bar thickness
  81.     (cap_bar#*36pt#*91)/(11*360pt#);
  82.  
  83. lower.cap_band#:=         % uppercase thickness above/below lobes
  84.     (cap_band#*36pt#*91)/(11*360pt#);
  85.  
  86. lower.cap_notch_cut#:=    % max breadth above/below uppercase notches
  87.     cap_notch_cut#;
  88.  
  89. lower.o#:=                % amount of overshoot for curves
  90.     (o#*360pt#*5)/(8*360pt#);
  91.  
  92. lower.apex_o#:=           % amount of overshoot for diagonal junctions
  93.     (apex_o#*360pt#*4)/(8*360pt#);
  94.  
  95. lower.fudge:=             % factor applied to weights of heavy characters
  96.     fudge;
  97.  
  98. generate csc      % switch to the driver file
  99.